home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Programming / AMOS / bestofsd / MegaScroller.AMOS / MegaScroller.amosSourceCode
Encoding:
AMOS Source Code  |  1992-10-20  |  2.6 KB  |  77 lines
  1. ' *****************************************************
  2. ' *                                                   *  
  3. ' *  This AMOS-program was made by Svante Danielsson  *  
  4. ' *                                                   *  
  5. ' *      Mail me at: til96sdn@mds.mdh.se              *  
  6. ' *                                                   *  
  7. ' *****************************************************  
  8.  
  9. Set Rainbow 0,1,255,"(15,1,1)","","(15,-1,1)"
  10. Rainbow 0,0,38,255
  11.  
  12. Dim C(7)
  13. Shared C()
  14. Restore KNARK
  15. For N=0 To 7
  16.    Read LUNDKNARKER
  17.    C(N)=LUNDKNARKER
  18. Next 
  19.  
  20.  
  21. Degree 
  22. For N=7 To 0 Step -1
  23.    Screen Open N,640,(N+1)*32,2,Lowres : Hide 
  24.    Palette 0,0,0
  25.    Curs Off 
  26.    Locate 0,0
  27.    Read Q$ : Centre Q$
  28.    Locate 0,N*4+2
  29.    Read W$ : Centre W$
  30.    Screen Display N,140,148-N*15,320,(N+1)*32
  31.    Channel N To Screen Offset(N)
  32.    Channel N+8 To Screen Display(N)
  33.    Amal N,"S:M321,0,321;M0,0,Z(250);M-321,0,321;P;JS"
  34.    Amal N+8,"S:M0,50,50;M0,-50,50;P;JS"
  35. Next 
  36.  
  37. For N=0 To 7
  38.    Amal On N
  39.    Amal On N+8
  40.    Wait 5
  41. Next 
  42.  
  43. Repeat 
  44.    Wait Vbl 
  45. Until Key State(69)
  46.  
  47. Edit 
  48.  
  49. ' Natt 
  50. 0 Data $0,$1,$2,$3,$4,$5,$6,$7,$8,$9,$A,$B,$C,$D,$E,$F
  51. Data $F,$E,$D,$C,$B,$A,$9,$8,$7,$6,$5,$4
  52.  
  53. KNARK: Data $F,$F0,$FF,$F00,$F0F,$FFF,$FF0,$56F
  54.  
  55. Data " * Howdy alla AMOS-k�dare!!! Hoppas ni gillar denna hypnotiska textskr�ll!!! *  "
  56. Data " Hjalmar S�derberg, Willie Craaford, Orup, Nisse, Vera, Loffe, Knutte mfl........"
  57.  
  58. Data " Jag skulle vilja ge lite credits till: PG Games, Rising Software, Hellware   "
  59. Data " Liam Howlett, Julia Ceasar, Klabbarparn, Sj�kvisten, Acen, SL2, Jonny L, Erland"
  60.  
  61. Data " Damm, The Caos Warriors, Gammer, Bajl�dan, Clownen Manne, Fr�ken Sol, CP-�ke"
  62. Data " Grabben Brockel, Piskan, Pulvret, Mahoney & Kaktus, Jolly Jumper, Kent, Drutten"
  63.  
  64. Data " Ernst-Hugo J�reg�rd, Rreine Brynolfsson, Calle Dernulf, Fr�ken Bl�sippa, M�lle"
  65. Data " Todd Terry, Photec, LTJ Buchem, Alex Reese, Dave Angel, Howie B, Agroman, Mulle"
  66.  
  67. Data " Fredrik Z, Jonas N, Sempers barnmat, Chaques Chirac, Arvid, Drum n Base-Gunnar"
  68. Data " Strindberg, Hugo, Oskar, Ullis, Bejve, Photogenic, Peanut Planet, Ren & Stimpy"
  69.  
  70. Data " Delta Software, Fisk-Gunnar, Bullibumpa, Wesley Snipes, Leopold, Tyra Trollpacka"
  71. Data " Babaperiba, Hyllan, Kuben, Gurra G, Svullo, Obiaman, Dina & Dessi, Olle, Musse"
  72.  
  73. Data " Farbror Bosse, Kermit Grankvist, Maria-Pia, Arvid Stj�rnblom, Acke Plack, Firre"
  74. Data " Bompa Bompa, Annorna, Rave-Nissen, Luffaren, Bellon, Lundmarkaren, Julle, Rille"
  75.  
  76. Data " Douglas Adams, DJ Diskborste, DJ Hype, DJ Rasmus, DJ Floppydisk, DJ Delirium"
  77. Data " DJ F�rl�ngningssladd, DJ Myrstack, MC Motorv�g, MC Ello, MC Dogfood, MC Wettex"